﻿Imports DNP.GestionComercial.BE
Imports DNP.DevNetPeru.Data
Imports System.Data.SqlClient
Public Class MarcaDAL
    Public Function ListarMarcas(ByVal pCodigo As String) As RespuestaBE
        Dim LstEntidad As New List(Of MarcaBE)
        Dim obeRespuesta As New RespuestaBE
        Try

            Dim cmd As New SqlCommand("COM_SEL_COM_MARCA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@p_Buscar", SqlDbType.VarChar).Value = pCodigo

            Using dr As SqlDataReader = BaseDatos.GetDataReader(cmd)
                If dr.HasRows Then
                    ' Return ObtenerUbigeo(dr)
                    LstEntidad = Utils.CreaLista(Of MarcaBE)(LstEntidad, dr)
                    obeRespuesta.ValorRertono = LstEntidad
                    obeRespuesta.Respuesta = True

                    Return obeRespuesta

                Else
                    obeRespuesta.ValorRertono = LstEntidad
                    obeRespuesta.Respuesta = True

                    Return obeRespuesta
                End If
            End Using


        Catch ex As Exception
            obeRespuesta.ValorRertono = LstEntidad
            obeRespuesta.Respuesta = False
            obeRespuesta.Mensaje = "msgErrorCargarInfoBD"

        End Try
        Return obeRespuesta
    End Function
End Class
